with Ada.Text_Io, Ada.Integer_Text_Io;
with Interfaces.C;
use Ada.Text_Io, Ada.Integer_Text_Io;

procedure PCC is

	package C renames Interfaces.C;

	X: integer;

	function Demarrer_Rames return integer;
	pragma import(C,Demarrer_Rames,"demarrerRames");
	function Arreter_Rames return integer;
	pragma import(C,Arreter_Rames,"arreterRames");

	begin
		Put_Line("ADA : PCC debut");
		X := Demarrer_Rames;
		X := Arreter_Rames;
		Put_Line("ADA : PCC fin");
	end;

